home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Programming / Languages / Jeff Interpreter Docs / Function.jeff < prev    next >
Encoding:
Text File  |  1986-12-08  |  248 b   |  21 lines  |  [TEXT/JEFF]
  1. MARK 0    ----MIAN------
  2. ENTR 3
  3. STOP
  4. ILIT 5    ----MIAN------
  5. PUSH 1
  6. MARK 1    CALL F
  7. PUSH 1
  8. MARK 1    CALL F
  9. LOAD 0 4
  10. ENTR 14
  11. ENTR 14
  12. WRIT 0 5
  13. SNAP
  14. EXIT      ----MAIN------
  15. SNAP      ---- F -------
  16. DUPL
  17. MUL
  18. SNAP
  19. STOR 1 -1
  20. EXIT      ---- F -------
  21.